home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / B-Book Series / (k)b4.d64 / solution3.23 < prev    next >
Text File  |  2007-02-28  |  191b  |  10 lines
  1. 0010 SUM1:=1000
  2. 0020 SUM2:=1000
  3. 0030 FOR YEAR:=1 TO 7 DO
  4. 0040 SUM1:=SUM1*1.11
  5. 0050 FOR QUARTER:=1 TO 4 DO
  6. 0060 SUM2:=SUM2*1.025
  7. 0070 ENDFOR QUARTER
  8. 0080 PRINT YEAR;SUM1;SUM2
  9. 0090 ENDFOR YEAR
  10.